home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 4
/
United Public Domain Gold 4.iso
/
fredfish
/
ff.0013.dms
/
ff.0013.adf
/
shades.bas
< prev
next >
Wrap
BASIC Source File
|
1986-02-21
|
107b
|
5 lines
10 ask mouse x%,y%,b%
20 if b%=0 then goto 10
30 rgb 0, (x%*32)/640, 0, (y%*32)/200
40 goto 10